(disabled-command-hook): Use eq to compare elts

of this-command-keys.  Choose the appropriate kind of Meta.

diff --git a/lisp/novice.el b/lisp/novice.el
index 922746d1c4c03182614f57bf5c2a1290b99f6112..2c61715cefdaff7cc02fd474ddb8b36571851bf3 100644 (file)
--- a/lisp/novice.el
+++ b/lisp/novice.el
@@ -42,7 +42,10 @@
   (let (char)
     (save-window-excursion
      (with-output-to-temp-buffer "*Help*"
-       (if (eq (aref (this-command-keys) 0) ?\M-x)
+       (if (eq (aref (this-command-keys) 0)
+              (if (stringp (this-command-keys))
+                  (aref "\M-x" 0)
+                ?\M-x))
           (princ "You have invoked the disabled command ")
         (princ "You have typed ")
         (princ (key-description (this-command-keys)))